# Script to handle the output data
source("../readf.r")
source("../plotfunc.r")
source("../sigtest.r")
# Read in data
#r2n09.0301 <- readf("mj.r2n09.0301",nexp=30)
#r2n09.0401 <- readf("mj.r2n09.0401",nexp=30)
#r2n09.0402 <- readf("mj.r2n09.0402",nexp=30)
#r2n09.0403 <- readf("mj.r2n09.0403",nexp=30)
#r2n09.0405 <- readf("mj.r2n09.0405",nexp=30)
#r2n09.0406 <- readf("mj.r2n09.0406",nexp=30)
r2n09.0515 <- readf("mj.r2n09.0515",nexp=30)
r2n09.0516 <- readf("mj.r2n09.0516",nexp=30)
r2n09.0525 <- readf("mj.r2n09.0525",nexp=30)
r2n09.0526 <- readf("mj.r2n09.0526",nexp=30)
# organize data
#r2n09.objf <- list(at.as=r2n09.0301$objf, co.as=r2n09.0401$objf, co.ws=r2n09.0402$objf, co.ai=r2n09.0405$objf, co.wi=r2n09.0406$objf, co.mo=r2n09.0403$objf)
#r2n09.ofc <- list(co.as=r2n09.0401$ofc, co.ws=r2n09.0402$ofc, co.ai=r2n09.0405$ofc, co.wi=r2n09.0406$ofc, co.mo=r2n09.0403$ofc)
r2n09a.objf <- list(as.ai=r2n09.0515$objf, as.wi=r2n09.0516$objf, ws.ai=r2n09.0525$objf, ws.wi=r2n09.0526$objf)
r2n09a.ofc <- list(as.ai=r2n09.0515$ofc, as.wi=r2n09.0516$ofc, ws.ai=r2n09.0525$ofc, ws.wi=r2n09.0526$ofc)
#rm(r2n09.0301,r2n09.0401,r2n09.0402,r2n09.0403,r2n09.0405,r2n09.0406)
# Done
